home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / POINTERS.PAS < prev    next >
Pascal/Delphi Source File  |  1985-02-11  |  547b  |  26 lines
  1. program Pointers;
  2. {$R+}
  3. type
  4.   tempbuffer=^dynamic_buffer;
  5.   dynamic_buffer=array[1..25000] of char;
  6.   pointers = ^integer;
  7. var
  8.   buffer : tempbuffer;
  9.   y:char;  z: integer;
  10.  
  11. begin
  12.   getmem(buffer,25000);
  13.   writeln('Demo for dynamic allocation of memory for an array.');
  14.   writeln('position 1 and 45 of array should be a A.');
  15.   fillchar(buffer^,25000,' ');
  16.   buffer^[1]:=#65;
  17.   buffer^[45]:=#65;
  18.   for z:=1 to 50 do
  19.     begin
  20.       write(buffer^[z]); write(' ');
  21.     end;
  22.     delay(5000);
  23.   freemem(buffer,25000);
  24. end.
  25.  
  26.